home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 080.dms / 080.adf / Get_Icons.amos / Get_Icons.amosSourceCode
AMOS Source Code  |  1994-01-30  |  476b  |  24 lines
  1. '
  2. '********************************************
  3. '     GRAB 16*16 TILES FROM IFF PICTURE
  4. '********************************************
  5. '
  6. _LOAD_TILES
  7. '
  8. Procedure _LOAD_TILES
  9.    '
  10.    Erase 2
  11.    I=1 : X=0 : Y=0
  12.    Screen Open 4,320,256,32,Lowres
  13.    Load Iff ":Dizzy_tiles.iff",4
  14.    Screen Hide 4
  15.    For Y=0 To 240 Step 16
  16.       For X=0 To 304 Step 16
  17.          Get Icon I,X,Y To X+16,Y+16
  18.          Inc I
  19.       Next X
  20.    Next Y
  21.    Screen Close 4
  22.    Save ":tiles.abk",2
  23.    '
  24. End Proc